home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / drill.arc / SPELL.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-05-19  |  2.5 KB  |  67 lines
  1. 100 REM * SPELL.BAS * FOR USE WITH DRILL.BAS PGM * SPELLING DRILL
  2. 110 DIM WO$(20)
  3. 120 CLS
  4. 130 PRINT
  5. 140 PRINT TAB(10)"----- Spelling Drill -----"
  6. 150 PRINT
  7. 160 INPUT"What is the number of the spelling lesson.";A$
  8. 170 INPUT"What is the grade level (4,5,6,7,8)";GL$
  9. 180 IF VAL(GL$)<4 OR VAL(GL$)>8 THEN 170
  10. 190 U$="UNIT"+GL$+A$
  11. 200 OPEN"I",1,U$
  12. 210 FOR X=1 TO 20
  13. 220   INPUT #1,WO$(X)
  14. 230 NEXT X
  15. 240 CLOSE
  16. 250 CLS
  17. 260 PRINT"When you see a word spelled letter by letter at the"
  18. 270 PRINT"center top of the screen, you enter the correct spelling"
  19. 280 PRINT"for that word.
  20. 290 PRINT"If you get the word on the first try you get 5 points."
  21. 300 PRINT"If you get the word on the second try you get 3 points."
  22. 310 PRINT"If you get the word on the third try you get only 1 point."
  23. 320 PRINT
  24. 330 INPUT"Press ENTER when you are ready to start.";A
  25. 340 CLS
  26. 350 PRINT"These are the words you will by asked to spell."
  27. 360 PRINT
  28. 370 FOR X=1 TO 20 STEP 2
  29. 380   PRINT X;TAB(5);WO$(X);TAB(30);X+1;TAB(35);WO$(X+1)
  30. 390 NEXT X
  31. 400 PRINT
  32. 410 INPUT"Press ENTER when you are ready to continue.";A
  33. 420 CLS
  34. 430 FOR X=1 TO 20
  35. 440   FOR Y=3 TO 1 STEP -1
  36. 450     L=LEN(WO$(X))
  37. 460     FOR Q=1 TO 400:NEXT Q: ' one of many delay loops
  38. 470     FOR Z=1 TO L
  39. 480       LOCATE 3,Z+30:PRINT MID$(WO$(X),Z,2)
  40. 490       FOR Q=1 TO 200:NEXT Q: ' sets speed of the letter's appearance
  41. 500       LOCATE 3,Z+30:PRINT" ": ' one space between quotes here
  42. 510     NEXT Z
  43. 520     CLS
  44. 530     LOCATE 10,5:INPUT"Type the word that appeared on the screen.";AN$
  45. 540     IF WO$(X)<>AN$ THEN 600
  46. 550     SC=SC+2*Y-1:PRINT"Score..... =";SC
  47. 560     PRINT"Good work, you spelled <";WO$(X);"> correctly."
  48. 570     PRINT"Watch the top center of the screen for the next word."
  49. 580     FOR Q= 1 TO 1000:NEXT Q
  50. 590     GOTO 680
  51. 600     IF Y=3 THEN PRINT"You missed the word on the 1st try."
  52. 610     IF Y=2 THEN PRINT"You missed the word on the 2nd try."
  53. 620     IF Y=1 THEN PRINT"The correct spelling is: ";WO$(X)
  54. 630     FOR Q=1 TO 1000:NEXT Q
  55. 640     IF Y=3 OR Y=2 THEN PRINT"Watch the top center of the screen."
  56. 650     IF Y=1 THEN PRINT"Your three tries are gone. Watch for the next word."
  57. 660     FOR Q=1 TO 2000:NEXT Q
  58. 670   NEXT Y
  59. 680 NEXT X
  60. 690 PRINT"Your score on the last 20 words is ";SC:CT=CT+1
  61. 700 TS=TS+SC:SC=0
  62. 710 PRINT"Your total score is ";:PRINT USING "###.#";TS/CT
  63. 720 PRINT"Do you wish to try another lesson (Y/N)"
  64. 730 A$=INKEY$:IF A$="" THEN 730
  65. 740 IF A$="Y" OR A$="y" THEN GOTO 140
  66. 750 IF A$="N" OR A$="n" THEN RUN"DRILL.BAS" ELSE 720
  67.